home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO059.dsk / HELP.ME.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  31 lines
  1. 0  REM FAMILY ROOTS: HELP PROGRAM. COPYRIGHT (C) 1987, QUINSEPT, INC.
  2. 10  CLEAR :T$ = "":D$ =  CHR$(4):LI = 768: GOTO 10000
  3. 690  GET YN$: PRINT YN$: POKE  -16368,0: IF YN$ > = "a"  AND YN$ < = "z"  THEN YN$ =  CHR$( ASC(YN$) -32)
  4. 693  RETURN 
  5. 850  HOME : RETURN 
  6. 860  IF Q(22) >39  THEN  PRINT " ";: RETURN 
  7. 861  PRINT : RETURN 
  8. 1000  PRINT D$"OPENCONFIGURATION": PRINT D$"READCONFIGURATION"
  9. 1010  FOR I = 1 TO 64: INPUT Q(I): NEXT : PRINT D$"CLOSE": RETURN 
  10. 6760  ONERR  GOTO 6800
  11. 6765  PRINT D$"RUNDIMMER"
  12. 6800  PRINT "CAN'T FIND NEXT MODULE..";: GOSUB 690: GOTO 20000
  13. 8000  GOSUB 8060:I = 0: ONERR  GOTO 8050
  14. 8010  ONERR  GOTO 8050
  15. 8020 I = I +1: CALL LI:IN$(I) =  MID$ (T$,2): IF I <199  THEN 8020
  16. 8030  PRINT  CHR$(4)"close": RETURN 
  17. 8050  PRINT D$"CLOSE":EL = I -1:I = 199: GOSUB 8060: RESUME 
  18. 8060  PRINT D$"OPEN"FL$: PRINT D$"READ"FL$: RETURN 
  19. 10000 ML = 200:SN = 22:WD = 40:CZ$ =  CHR$(26): DIM Q(64),IN$(ML): GOSUB 1000
  20. 10005  PRINT D$"PR#"Q(43):Y = 1:Z = 0:W = 0: GOSUB 850: PRINT "Do you want an Introduction or Hints";: GOSUB 860: PRINT "(Press I or H)? ";: GOSUB 690:FL$ = "INTRO": IF YN$ = "H"  THEN FL$ = "HINTS"
  21. 10007  GOSUB 8000: GOSUB 850
  22. 10010  IF IN$(Z +1) = ""  THEN 10020
  23. 10011 FL = 0: FOR I = Z +1 TO W +SN: IF IN$(I) = ""  THEN FL = 1:I = W +SN
  24. 10012  NEXT : IF FL = 1  THEN 10020
  25. 10015  GOSUB 12000: GOSUB 850: IF YN$ = CZ$  THEN 6760
  26. 10016 Y = Y +1:W = Z: GOTO 10010
  27. 10020 Z = Z +1: IF Z >EL  THEN  GOSUB 12000: GOTO 6760
  28. 10030  PRINT  SPC( 4)IN$(Z): GOTO 10010
  29. 12000  PRINT : PRINT  SPC( 4)"PRESS ANY KEY TO CONTINUE... ";: GOSUB 690: IF YN$ =  CHR$(3)  THEN 6760
  30. 12010  RETURN 
  31. 20000  PRINT D$"CLOSE": GOTO 10005